home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / PVDRIVER / PRWRI12.ZIP / PRWRI12X.WCM < prev   
Text File  |  1993-07-18  |  4KB  |  181 lines
  1.  //////////////////
  2. // PRWRI12X.WCM
  3. // PrintWrite 1.2
  4. //////////////////
  5.  
  6. // ASSIGN ICON
  7. hicon=loadiconfile("prwri.ico")
  8. if(hicon<>0)holdicon=seticon(hmain,hicon)
  9. // ASK FOR FILENAME
  10. ans=askbox("Enter name of file (no extension)"," ")
  11. if ans+a==a
  12. exit
  13. var1="Write - "
  14. var2=ans 
  15. var3=".wri"
  16. file=var1+var2+var3
  17. appactivate(file)
  18. // MAKE SURE ANSWER IS VALID
  19. test=getwindowhandle(file)
  20. if test=0
  21.  do
  22.   do
  23.   ans=askbox("Sorry, that file is not active.       Enter name of active Write file     (without .wri extension)"," ")
  24.    if ans+a==a
  25.    exit
  26.    var1="Write - "
  27.    var2=ans 
  28.    var3=".wri"
  29.    file=var1+var2+var3
  30.    appactivate(file)
  31.   end
  32.  test=getwindowhandle(file)
  33.  if test=0
  34.   do
  35.    msgbox("Sorry, that is an invalid answer. Make sure that Write is running, check filename and try again.","PrintWrite",0)
  36.    exit
  37.   end
  38.  end
  39. // JUMP TO END OF DOCUMENT
  40. delay (100)
  41. sendkeys ("^{end}")
  42. delay (500)
  43. // ASK FOR DOCUMENT LENGTH
  44. pages=askbox("How many pages?"," ")
  45. // MAKE SURE A NUMBER HAS BEEN ENTERED
  46. if pages+a==a
  47. exit
  48. if pages=0
  49. exit
  50. if pages=(" ")
  51.  do
  52.   pages=askbox("Please enter the number of pages you wish to print."," ")
  53.   if pages+a==a
  54.   exit
  55.   if pages=0
  56.   exit
  57.   if pages=(" ")
  58.    do
  59.     msgbox("Sorry, that is an invalid answer. Decide how many pages you want to print and try again.","PrintWrite",0)
  60.     exit
  61.    end
  62.  end
  63. pages=pages-1
  64. // ASK FOR PAGE TO START ON
  65. first=askbox("Start on page","1")
  66. // MAKE SURE A NUMBER HAS BEEN ENTERED
  67. if first+a==a
  68. exit
  69. if first=0
  70. exit
  71. if first=" "
  72. exit
  73. count=first
  74. delay (100)
  75. // PRINT FIRST (SELECTED) PAGE
  76. appactivate(file)
  77. delay (100)
  78. sendkeys ("%f")
  79. delay (100)
  80. sendkeys ("p")
  81. delay (100)
  82. sendkeys ("p")
  83. delay (100)
  84. sendkeys (count)
  85. delay (100)
  86. sendkeys ("{tab}")
  87. delay (100)
  88. sendkeys (count)
  89. delay (1000)
  90. sendkeys ("{enter}")
  91. delay (100)
  92. winact = getappactive()
  93. delay (100)
  94. while (winact = "Write")
  95.  do
  96.   winact = getappactive()
  97.   delay (500)
  98.  end
  99. delay (100)
  100. // CHECK NUMBER OF PAGES PRINTED SO FAR
  101. count=first-0
  102. delay (100)
  103. while count<pages
  104.  do
  105. delay (100)
  106.   count=count+2
  107. delay (100)
  108. // PRINT SECOND (SELECTED) AND SUBSEQUENT PAGES
  109.   appactivate(file)
  110.   delay (100)
  111.   sendkeys ("%f")
  112. delay (100)
  113.   sendkeys ("p")
  114. delay (100)
  115.   sendkeys ("{tab}")
  116. delay (100)
  117.   sendkeys (count)
  118. delay (100)
  119.   sendkeys ("{tab}")
  120. delay (100)
  121.   sendkeys (count)
  122. delay (1000)
  123.   sendkeys ("{enter}")
  124. delay (100)
  125.   winact = getappactive()
  126. delay (100)
  127.    while (winact = "Write")
  128.     do
  129.      winact = getappactive()
  130.      delay (500)
  131.     end
  132.   end
  133. delay (100)
  134. // PROMPT FOR READINESS TO PRINT ALTERNATE PAGES
  135. reply=msgbox("Ready to continue print job?","Pause",1)
  136. if reply=2
  137. exit
  138. if reply=1
  139. // CHECK NUMBER OF PAGES PRINTED SO FAR
  140. count=first-1
  141. delay (100)
  142. while count<pages
  143.  do
  144.   count=count+2
  145. delay (100)
  146. // PRINT ALTERNATE PAGES
  147. delay (100)
  148.   appactivate(file)
  149.   delay (100)
  150.   sendkeys ("%f")
  151. delay (100)
  152.   sendkeys ("p")
  153. delay (100)
  154.   sendkeys ("{tab}")
  155. delay (100)
  156.   sendkeys (count)
  157. delay (100)
  158.   sendkeys ("{tab}")
  159. delay (100)
  160.   sendkeys (count)
  161. delay (1000)
  162.   sendkeys ("{enter}")
  163. delay (100)
  164.   winact = getappactive()
  165. delay (100)
  166.    while (winact = "Write")
  167.     do
  168.      winact = getappactive()
  169.      delay (500)
  170.     end
  171.  end
  172. delay (100)
  173. // GOODBYE
  174. msgbox("Thank you for using WinCmd and PrintWrite!","PrintWrite",0)
  175. delay (100)
  176. appactivate(file)
  177. delay (100)
  178. sendkeys ("^{home}")
  179. delay (100)
  180. exit
  181.